﻿Imports Microsoft.Xna.Framework

Namespace Runtime

    Public MustInherit Class BasicGameLoopGameComponent

        Public Property Enabled() As Boolean
        Public Property Game() As Game

        Public Sub New()
            Me.New(Nothing)
        End Sub

        Public Sub New(g As Game)
            Me.Game = g
            Me.Enabled = False
        End Sub

        Public MustOverride Sub Initialize()
        Public MustOverride Sub LoadContent()
        Public MustOverride Sub UnloadContent()
        Public MustOverride Sub Update(gameTime As GameTimeEventArgs)
        Public MustOverride Sub Draw(gameTime As GameTimeEventArgs)

    End Class

End Namespace